home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Best of www.BestZips.com (Collector's Edition)
/
Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO
/
grapprog
/
splt232w.zip
/
THP7595.ZIP
/
T5-22.BAS
< prev
next >
Wrap
BASIC Source File
|
1992-08-12
|
467b
|
17 lines
10 OPEN "T5-22.PLT" FOR OUTPUT AS #1
20 PRINT #1,"IN;SP1;IP200,1000,3000,3100;"
30 PRINT #1,"SC0,40,0,30;"
35 PRINT #1,"PA0,30;EA40,0;"
40 FOR I=1 TO 3
50 PRINT #1,"PD;PR0,-2.5;TL1.5;YT;PR0,-2.5;"
60 PRINT #1,"TL3;YT;PR0,-2.5;TL1.5;YT;"
70 PRINT #1,"PR0,-2.5;TL100;YT;"
80 NEXT I
90 FOR J=1 TO 4
100 PRINT #1,"TL100;XT;PR2.5,0;TL1.5;XT;"
110 PRINT #1,"PR2.5,0;TL3;XT;PR2.5,0;"
120 PRINT #1,"TL1.5,0;XT;PR2.5,0;"
130 NEXT J
140 PRINT #1,"SP0;"
150 END